home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
C64
/
T-TPUG Old Monthly Disks
/
(c)t1.d64
/
heli.c
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2007-02-04
|
1KB
|
43 lines
1 REM WRITTEN BY DAVID BRADLEY
2 REM TPUG COMMODORE 64 LIBRARIAN
5 A=2
6 POKE53280,0:POKE53281,0
10 PRINT"[147]"
20 V=53248
22 POKEV+23,1:POKEV+29,1
30 POKE V+21,1
40 POKE 2040,11
50 FOR K=0TO62:READ Q:POKE 12928+K,Q:POKE 12800+K,Q:NEXT
51 FOR K=0TO62:READ Q:POKE 12864+K,Q:NEXT
52 FOR K=0TO62:READ Q:POKE 12992+K,Q:NEXT
55 POKEV,25
60 FOR N=50TO210STEPA:POKEV+1,N:GOSUB1000:NEXTN
62 FOR N=25TO255STEPA:POKEV,N:GOSUB1000:NEXTN
64 FOR N=210TO50STEP-A:POKEV+1,N:GOSUB1000:NEXTN
66 FOR N=255TO25STEP-A:POKEV,N:GOSUB1000:NEXTN
100 GOTO55
510 DATA 0,0,0,0,0,0,0,31,255
520 DATA 0,0,64,0,0,64,0,0,64
530 DATA 0,7,240,0,31,140,248,127,134
540 DATA 33,255,134,39,255,134,47,255,134
550 DATA 127,255,140,127,255,248,63,255,240
560 DATA 0,129,0,0,129,0,16,129,8
570 DATA 15,255,240,0,0,0,0,0,0
610 DATA 0,0,0,0,0,0,0,0,127
620 DATA 0,0,64,0,0,64,0,0,64
630 DATA 0,7,240,0,31,140,56,127,134
640 DATA 33,255,134,39,255,134,47,255,134
650 DATA 127,255,140,127,255,248,63,255,240
660 DATA 0,129,0,0,129,0,16,129,8
670 DATA 15,255,240,0,0,0,0,0,0
710 DATA 0,0,0,0,0,0,0,31,192
720 DATA 0,0,64,0,0,64,0,0,64
730 DATA 0,7,240,0,31,140,224,127,134
740 DATA 33,255,134,39,255,134,47,255,134
750 DATA 127,255,140,127,255,248,63,255,240
760 DATA 0,129,0,0,129,0,16,129,8
770 DATA 15,255,240,0,0,0,0,0,0
1000 X=X+2:IFX>4THENX=2
1010 POKE2040,199+X
1020 RETURN